﻿Public Class ViewModelParametrerTauxComFrais
    Inherits ViewModelTabSectionBase

    Dim _ListeTauxComFrais As DataView
    Dim _ListeTauxComFraisHistoCrt As DataView


    Public ReadOnly Property ListeTauxComFrais As DataView
        Get
            If _ListeTauxComFrais Is Nothing Then
                Dim datamanager As New DataManager

                _ListeTauxComFrais = New DataView(datamanager.Dataset.CommissionsFrais)
            End If
            Return _ListeTauxComFrais
        End Get
    End Property

    Public ReadOnly Property ListeTauxComFraisHistoCrt As DataView
        Get
            If _ListeTauxComFraisHistoCrt Is Nothing Then
                Dim datamanager As New DataManager

                _ListeTauxComFraisHistoCrt = New DataView(datamanager.Dataset.CommissionsFrais_HistoCRT)
            End If
            Return _ListeTauxComFraisHistoCrt
        End Get
    End Property
End Class
